home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / graphics / minicon.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-05-16  |  1.9 KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "Form Icon Demonstration"
  5.    ClientHeight    =   1605
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4695
  9.    Height          =   2010
  10.    Left            =   1035
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   1605
  14.    ScaleWidth      =   4695
  15.    Top             =   1140
  16.    Width           =   4815
  17.    Begin PictureBox Picture1 
  18.       AutoSize        =   -1  'True
  19.       Height          =   510
  20.       Left            =   240
  21.       Picture         =   MINICON.FRX:0000
  22.       ScaleHeight     =   480
  23.       ScaleWidth      =   480
  24.       TabIndex        =   0
  25.       Top             =   600
  26.       Width           =   510
  27.    End
  28.    Begin PictureBox Picture2 
  29.       AutoSize        =   -1  'True
  30.       Height          =   510
  31.       Left            =   1200
  32.       Picture         =   MINICON.FRX:0302
  33.       ScaleHeight     =   480
  34.       ScaleWidth      =   480
  35.       TabIndex        =   1
  36.       Top             =   600
  37.       Width           =   510
  38.    End
  39.    Begin PictureBox Picture3 
  40.       AutoSize        =   -1  'True
  41.       Height          =   510
  42.       Left            =   2040
  43.       Picture         =   MINICON.FRX:0604
  44.       ScaleHeight     =   480
  45.       ScaleWidth      =   480
  46.       TabIndex        =   2
  47.       Top             =   600
  48.       Width           =   510
  49.    End
  50.    Begin Timer Timer1 
  51.       Interval        =   1000
  52.       Left            =   3360
  53.       Top             =   600
  54.    End
  55. Option Explicit
  56. Dim num As Integer
  57. Sub Form_Load ()
  58.     num = 1
  59. End Sub
  60. Sub Timer1_Timer ()
  61.     Select Case num
  62.         Case 1
  63.             form1.Icon = picture1.Picture
  64.         Case 2
  65.             form1.Icon = picture2.Picture
  66.         Case 3
  67.             form1.Icon = picture3.Picture
  68.     End Select
  69.     num = num + 1
  70.     If num > 3 Then num = 1
  71. End Sub
  72.